home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / c_text.zip / CURSOR_O.ASM < prev    next >
Assembly Source File  |  1987-06-17  |  1KB  |  60 lines
  1.  
  2. ;--------------------------------------------------------------------------;
  3. ; Cursor_off - Turns the cursor off.                                       ;
  4. ;--------------------------------------------------------------------------;
  5.  
  6.         ASSUME  CS:_TEXT
  7. _TEXT   SEGMENT BYTE    PUBLIC  'CODE'
  8.         PUBLIC  _CURSOR_OFF
  9. _CURSOR_OFF     PROC    NEAR
  10.         PUSH    BP
  11.         MOV     BP,SP
  12.         PUSH    DI
  13.         PUSH    SI
  14.         PUSH    DS
  15.         PUSH    ES
  16.  
  17.         XOR     AL,AL
  18.         MOV     CH,32
  19.         XOR     CL,CL
  20.  
  21.         MOV     AH,1                    ;Service 1, Move cursor
  22.         INT     10h
  23.  
  24.         POP     ES
  25.         POP     DS
  26.         POP     SI
  27.         POP     DI
  28.         POP     BP
  29.         RET
  30. _CURSOR_OFF      ENDP
  31.  
  32.  
  33.         PUBLIC  _CURSOR_ON
  34. _CURSOR_ON      PROC    NEAR
  35.         PUSH    BP
  36.         MOV     BP,SP
  37.         PUSH    DI
  38.         PUSH    SI
  39.         PUSH    DS
  40.         PUSH    ES
  41.  
  42.         XOR     AL,AL
  43.         MOV     CH,6
  44.         MOV     CL,7
  45.  
  46.         MOV     AH,1                    ;Service 1, set cursor size
  47.         INT     10h
  48.  
  49.         POP     ES
  50.         POP     DS
  51.         POP     SI
  52.         POP     DI
  53.         POP     BP
  54.         RET
  55. _CURSOR_ON      ENDP
  56.  
  57. _TEXT   ENDS
  58.         END
  59.  
  60.